home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / m_to_r / resizer2 / resizef.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  1.6 KB  |  67 lines
  1. {*---------------------------------------------------------------------
  2.  * Program: Resizer Test
  3.  * Author:  Kevin C. Dorff
  4.  * Date:    July 14, 1995
  5.  *
  6.  * This is a VERY simple program. One form, several controls on that
  7.  * form, and a function call in the "OnResize" event to the component
  8.  * to initialize or perform the resize.
  9.  *
  10.  * Remember, this doesn't work with components inside TTabbedNotebook's
  11.  * (and maybe others).
  12.  *}
  13.  
  14. unit Resizef;
  15.  
  16. interface
  17.  
  18. uses
  19.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  20.   Forms, Dialogs, Resizer, StdCtrls, ExtCtrls, Buttons, TabNotBk, Tabs,
  21.   Mask;
  22.  
  23. type
  24.   TForm1 = class(TForm)
  25.     Resizer1: TResizer;
  26.     Button1: TButton;
  27.     BitBtn2: TBitBtn;
  28.     SpeedButton2: TSpeedButton;
  29.     MaskEdit1: TMaskEdit;
  30.     Bevel1: TBevel;
  31.     GroupBox1: TGroupBox;
  32.     Button2: TButton;
  33.     Button3: TButton;
  34.     RadioGroup1: TRadioGroup;
  35.     RadioButton1: TRadioButton;
  36.     RadioButton2: TRadioButton;
  37.     RadioButton3: TRadioButton;
  38.     TabbedNotebook1: TTabbedNotebook;
  39.     BitBtn1: TBitBtn;
  40.     procedure FormResize(Sender: TObject);
  41.   private
  42.     { Private declarations }
  43.   public
  44.     { Public declarations }
  45.   end;
  46.  
  47. var
  48.   Form1: TForm1;
  49.  
  50. implementation
  51.  
  52. {$R *.DFM}
  53.  
  54. {*---------------------------------------------------------------------
  55.  * This is the only function call in this program. It exists to
  56.  * demonstrate how to make the RESIZER control handle the resizing
  57.  * of the components on the form on which the RESIZER component
  58.  * is placed.
  59.  *}
  60.  
  61. procedure TForm1.FormResize(Sender: TObject);
  62. begin
  63.    Resizer1.ReSize(Sender);
  64. end;
  65.  
  66. end.
  67.